home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / Befund2.cpp < prev    next >
C/C++ Source or Header  |  1998-12-18  |  1KB  |  46 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Befund2.h"
  6. //---------------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8.  
  9. const String DateiName = "Diagnose.txt";
  10. TForm1 *Form1;
  11. TStringList *Diagnose;
  12. int Nr;
  13.  
  14. //---------------------------------------------------------------------------
  15. __fastcall TForm1::TForm1(TComponent* Owner)
  16.     : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------------
  20. void __fastcall TForm1::FormCreate(TObject *Sender)
  21. {
  22.   randomize ();
  23.   Diagnose = new TStringList;
  24.   Diagnose->LoadFromFile (DateiName);
  25.   ScrollBar1->Min = 0;
  26.   ScrollBar1->Max = Diagnose->Count - 1;
  27. }
  28. //---------------------------------------------------------------------------
  29. void __fastcall TForm1::Button1Click(TObject *Sender)
  30. {
  31.   Panel1->Caption = "";
  32.   Edit1->Text = "";
  33.   Edit1->SetFocus ();
  34. }
  35. //---------------------------------------------------------------------------
  36. void __fastcall TForm1::Button2Click(TObject *Sender)
  37. {
  38.   Nr = random (Diagnose->Count);
  39.   Panel1->Caption = Diagnose->Strings[Nr];
  40. }
  41. //---------------------------------------------------------------------------
  42. void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
  43. {
  44.   Panel1->Caption = Diagnose->Strings[ScrollBar1->Position];    
  45. }
  46. //---------------------------------------------------------------------------